##### SCRIPT QUE GERA A TABELA 2 #####

# 1. CARREGA PACOTES -----------------------------------------------------

library(tidyverse)
library(janitor)
library(naniar)
library(xlsx)

# 2. CARREGA DADOS -------------------------------------------------------

#' Nesta etapa, foi implementada a leitura dos dados combinados de Enade-RAIS

# 3. GERA TABELA ---------------------------------------------------------

tab_2 <- dados_graduados_empregados %>% 
      filter(!is.na(area_curso_agreg)) %>% 
      group_by(area_curso_agreg, setor_ies_bin) %>% 
      summarize(prop_sexo = data.table::uniqueN(id_aluno[tp_sexo == "Feminino"])/n_distinct(id_aluno),
                prop_negro = data.table::uniqueN(id_aluno[raca_cor == "Negro/Indígena"])/n_distinct(id_aluno),
                prop_sup = data.table::uniqueN(id_aluno[edu_fam == "Superior ou mais"])/n_distinct(id_aluno),
                prop_ate_29 = data.table::uniqueN(id_aluno[idade_faixa %in% c("25-", "25-29")])/n_distinct(id_aluno),
                prop_se = data.table::uniqueN(id_aluno[regiao_curso %in% c("SE")])/n_distinct(id_aluno),
                prop_ce_q4 = data.table::uniqueN(id_aluno[nt_ce_quartil %in% c("q4")])/n_distinct(id_aluno),
                prop_fg_q4 = data.table::uniqueN(id_aluno[nt_fg_quartil %in% c("q4")])/n_distinct(id_aluno),
                prop_trab = data.table::uniqueN(id_aluno[trab_grad %in% c("Trabalha integral")])/n_distinct(id_aluno)
                )

# 4. EXPORTA TABELA -------------------------------------------------------

write.xlsx(data.frame(tab_2), 
           file = "./output/tabela_2.xlsx", 
           sheetName = "raw", 
           row.names = F)
